home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / demos / bob_gravityballs / damage.s < prev    next >
Text File  |  1980-01-06  |  26KB  |  709 lines
  1. ;==========================================================================
  2. ; 
  3. ; Program Name    : Bouncy Bob Balls    { Optimized }
  4. ; 
  5. ; Coded by    : Ian Quigley         (aka : Damage)
  6. ; Date        : 19 July '93
  7. ; Licence    : Freeware
  8. ;
  9. ; AGA Fixed     : By Digital Candy, 1996
  10. ;==========================================================================
  11.  
  12.         incdir    include:
  13.         include    hardware/custom.i   ;This sets things like DMACONR equ $02
  14.  
  15. ; Boundaries.
  16. Lowest_Floor    equ    200    
  17. Right_Side    equ    287    
  18.  
  19. Start    ;---> Initialise System <--------------------------------------------
  20.  
  21.         lea    gfxname,a1
  22.         move.l    4.w,a6
  23.         jsr    -$0228(a6)    ; Exec.lib > Open 'Graphics' Library
  24.         move.l    d0,_GfxBase
  25.         move.l    d0,a0        ; Fiddel with Copper list offsets
  26.         move.l    38(a0),a0
  27.         move.l    a0,Copper_1
  28.  
  29.         move.l    #Copper,$dff080
  30.  
  31.         lea    Planes,a0
  32.         move.l    #Damage_Bin,d0
  33.         move.w    d0,30(a0)    ; Bitplane 4 low
  34.         swap    d0    
  35.         move.w    d0,26(a0)    ; Bitplane 4 high
  36.  
  37.         move.l    4.w,a6
  38.         jsr    -$0084(a6)    ; Exec.lib > Forbid O/S
  39.  
  40.         move.l    #(8*40*256),d0    ; 8 Planes size = 40*256 (320*256)
  41.         move.l    #2,d1        ; Chip Mem Please
  42.         move.l    4.w,a6
  43.         jsr    -$00C6(a6)    ; Exec>lib > AllocMem
  44.         move.l    d0,Mem_Space
  45.         beq    Exit_13        ; No Memory ! Bollocks !
  46.  
  47.         lea    OldPlanes,a0
  48.         move.l    d0,(a0)+    ; ie 60000
  49.         add.l    #(40*256),d0
  50.         move.l    d0,(a0)+    ; ie 62800
  51.         add.l    #(40*256),d0
  52.         move.l    d0,(a0)+    ; ie 65000
  53.         add.l    #(40*256),d0
  54.     
  55.         lea    NewPlanes,a0
  56.         move.l    d0,(a0)+    ; ie 67800
  57.         add.l    #(40*256),d0
  58.         move.l    d0,(a0)+    ; ie 6a000
  59.         add.l    #(40*256),d0
  60.         move.l    d0,(a0)+    ; ie 6c8000
  61.  
  62. ;----------} Main Code {-----------------------------------------------------
  63.  
  64.         jsr    Insert_NewPlanes
  65.  
  66.         lea    $dff000,a5
  67. Keepon        cmp.b    #255,6(a5)
  68.         bne.s    Keepon
  69.  
  70. ;        move.w    #$ff0,$dff180
  71.         lea    Object_1,a4
  72.         bsr    Update_Object        ; Write to New Planes
  73.         lea    Object_2,a4
  74.         bsr    Update_Object
  75.         lea    Object_3,a4
  76.         bsr    Update_Object
  77.         lea    Object_4,a4
  78.         bsr    Update_Object
  79.         lea    Object_5,a4
  80.         bsr    Update_Object
  81.         lea    Object_6,a4
  82.         bsr    Update_Object
  83.         lea    Object_7,a4
  84.         bsr    Update_Object
  85.         lea    Object_8,a4
  86.         bsr    Update_Object
  87.         lea    Object_9,a4
  88.         bsr    Update_Object
  89.         lea    Object_A,a4
  90.         bsr    Update_Object
  91.  
  92.         bsr    Insert_NewPlanes    ; Inserts to copper list
  93.  
  94.         bsr    Clear_Planes        ; Clears OldPlanes
  95.         bsr    Swap_Old_New_Planes    ; Swaps Old/New Planes
  96.  
  97. ;        move.w    #$00f,$dff180
  98.  
  99.         btst    #6,$bfe001
  100.         bne.w    Keepon            ; Right Mouse Button ??
  101.  
  102. ;----------) End Code (-----------------------------------------------------
  103.     
  104.         move.l    #(8*40*256),d0        ; Our 8 planes
  105.         move.l    Mem_Space,a1        ; Where they live
  106.         move.l    4.w,a6
  107.         jsr    -$00D2(a6)        ; Exec.lib > FreeMem
  108.  
  109. Exit_13        move.l    4.w,a6
  110.         jsr    -$008A(a6)        ; Exec.Lib > Permit
  111.         move.l    Copper_1,$dff080
  112.         move.l    _GfxBase,a1
  113.         move.l    4.w,a6
  114.         jmp    -$019e(a6)    ; Exec.Lib > Close 'Graphics' Lib.
  115.  
  116. ;----------> End of program <------------------------------------------------
  117.  
  118. ; Subroutines ...
  119.  
  120.  
  121. Counter        dc.l    0
  122. Mem_Space    dc.l    0
  123.  
  124. Insert_NewPlanes
  125.         ;-----------------------------------------------
  126.         ; Inserts NewPlane addresses into Copper List.
  127.         ;
  128.         ; a0,a1,d0 <= Trash.
  129.  
  130.         lea    Planes,a0
  131.         lea    NewPlanes,a1
  132.         
  133.         move.l    (a1)+,d0
  134.         move.w    d0,6(a0)    ; Plane 0 low
  135.         swap    d0
  136.         move.w    d0,2(a0)    ; Plane 0 high
  137.             
  138.         move.l    (a1)+,d0
  139.         move.w    d0,14(a0)    ; Plane 1 low
  140.         swap    d0
  141.         move.w    d0,10(a0)    ; Plane 1 high
  142.  
  143.         move.l    (a1)+,d0
  144.         move.w    d0,22(a0)    ; Plane 2 low
  145.         swap    d0
  146.         move.w    d0,18(a0)    ; Plane 2 high
  147.         rts
  148.  
  149.  
  150. Swap_Old_New_Planes    
  151.         ;-----------------------------------------------
  152.         ; Swaps 3 long word from OldPlanes/NewPlanes
  153.         ;
  154.         ; a0,a1,d7 <= Trash
  155.  
  156.         move.l    #(3)-1,d7    
  157.         lea    OldPlanes,a0
  158.         lea    TmpPlanes,a1
  159. Swap_Old_Temp
  160.         move.l    (a0)+,(a1)+
  161.         dbra    d7,Swap_Old_Temp
  162.  
  163.         move.l    #(3)-1,d7
  164.         lea    NewPlanes,a0
  165.         lea    OldPlanes,a1
  166. Swap_Old_New
  167.         move.l    (a0)+,(a1)+
  168.         dbra    d7,Swap_Old_New
  169.  
  170.         move.l    #(3)-1,d7
  171.         lea    TmpPlanes,a0
  172.         lea    NewPlanes,a1
  173. Swap_Tmp_New
  174.         move.l    (a0)+,(a1)+    
  175.         dbra    d7,Swap_Tmp_New
  176.         rts
  177.  
  178. ;============>> Blitter Image Code <<======================================
  179.  
  180. Update_Object    ;--------------------------------------------
  181.         ; a4  => Object Structure to update
  182.         ; a5  == Hardware Registers ($dff000)
  183.         ;
  184.         ; d0-d7/a0-a3  <= Invalid.
  185.         ;
  186.         ; This routine will re-plot an object, and reset it's
  187.         ; x/y co-ords.
  188.  
  189.         move.w    Obj_xpos(a4),d0
  190.         move.w    Obj_ypos(a4),d1
  191.         move.w    Obj_dx(a4),d2
  192.         move.w    Obj_dy(a4),d3
  193.         add.w    d2,d0            ; x = x + dx
  194.         add.w    d3,d1            ; y = y + dy
  195.         add.w    #1,d3            ; Add gravity to dy
  196.         cmp.w    #Lowest_Floor,d1
  197.         blt    UO_NoBounce1
  198.  
  199.         sub.w    #1,d3
  200.         bcc    UO_NoSmallBounce
  201.         move.w    #1,d3
  202. UO_NoSmallBounce
  203.         neg.w    d3            ; reverse direction dy
  204.         move.w    #Lowest_Floor,d1
  205. UO_NoBounce1
  206.         cmp.w    #Right_Side,d0        ; | ie     d0 > 0200
  207.         blt    UO_NoBounce2        ; | ie  d0 = 0203
  208.         sub.w    #Right_Side,d0        ; | ie    d0 = 0003
  209.         neg.w    d0            ; | ie    d0 = FFFD
  210.         add.w    #Right_Side,d0        ; | ie    d0 = 0197 
  211.         neg.w    d2    ;Reverser dirct.  \  and looks like a bounce
  212. UO_NoBounce2
  213.         btst    #15,d0            ; ie    d0 < 0
  214.         beq    UO_NoBounce3        ; ie    d0 = FFFD
  215.         neg.w    d0            ; ie    d0 = 0003
  216.         neg.w    d2    ; Reverse Direction
  217. UO_NoBounce3
  218.         move.w    d0,Obj_xpos(a4)
  219.         move.w    d1,Obj_ypos(a4)        
  220.         move.w    d2,Obj_dx(a4)
  221.         move.w    d3,Obj_dy(a4)
  222.  
  223.  
  224. UO_PlotObject    ;-----> Plot new object <---------------------------------
  225.         move.w    Obj_xpos(a4),d0
  226.         move.w    Obj_ypos(a4),d1
  227.         mulu    #320/8,d1
  228.         move.l    d1,UO_Addr_Offset    ; add on y*40
  229.         lsr.w    #4,d0
  230.         add.w    d0,d0
  231.         add.l    d0,UO_Addr_Offset    ; add on 2*int(x/16)
  232.  
  233.         lea    Ball_Bob,a1    ;pointer to bitplane data
  234.         move.l    #124,d6            ;size of 1 bitplane of image in BYTES!
  235.  
  236.         ;------------ Now do the funky stuff -------------------------
  237.         lea    Ball_Bob.MASK,a2
  238.         move.w    #3-1,d7            ; bitplane counter
  239.         lea    NewPlanes,a3
  240.  
  241. UO_PlaneNumb    
  242.         move.l    (a3)+,a0
  243.         add.l    UO_Addr_Offset,a0
  244.  
  245. UO_WaitBlitter2    btst    #6,DMACONR(a5)        ; blitter done?
  246.         bne.s    UO_WaitBlitter2        ; no, wait for it
  247.  
  248.         move.l    a0,BLTCPT(a5)        ; bgnd and destination
  249.         move.l    a0,BLTDPT(a5)        ; bitplane pointers
  250.         move.l    a1,BLTBPT(a5)        ; ptr to image data
  251.         move.l    a2,BLTAPT(a5)        ; ptr to mask data
  252.  
  253.         move.w    #-2,BLTAMOD(a5)        
  254.         move.w    #-2,BLTBMOD(a5)        
  255.  
  256.         move.w    #(320/8)-6,BLTCMOD(a5)    ; C, D moduli equals
  257.         move.w    #(320/8)-6,BLTDMOD(a5)    ; 40-(cols width in bytes)
  258.  
  259.         move.l    #$ffff0000,BLTAFWM(a5)    
  260.  
  261.         moveq    #0,d0
  262.         move.w    Obj_xpos(a4),d0
  263.         and.w    #%1111,d0        ; frac(x/16)
  264.  
  265.         rol.w    #4,d0
  266.         move.w    d0,d1
  267.         or.w    #%1111,d0        ; and in USEx bits!
  268.         rol.w    #8,d0            ; put in proper place
  269.         or.b    #$CA,d0            ; put in minterm bits
  270.  
  271.         move.w    d0,BLTCON0(a5)        ; save BLTCON0 control word
  272.         rol.w    #8,d1            ; proper place
  273.         move.w    d1,BLTCON1(a5)
  274.         move.w    #$07C3,BLTSIZE(a5)
  275.  
  276. UO_NextDest    
  277.  
  278.         add.l    d6,a1            ; next image bitplane
  279.         dbra    d7,UO_PlaneNumb
  280.  
  281.         rts
  282.  
  283. Clear_Planes
  284.         ;------------ Clear Old Area ------------------------------
  285.         ;
  286.         ; Clears Old Planes.
  287.         ;
  288.         ; a0-a4,d7 <= Trash
  289.  
  290. USED=$100
  291.  
  292.         moveq    #3-1,d7
  293.         lea    OldPlanes,a3
  294. UO_ClearArea
  295.         btst    #6,DMACONR(a5)        ; Is blitter ready ?
  296.         bne    UO_ClearArea        ; No. Wait for it...
  297.             
  298.         move.w    #0,BLTDMOD(a5)        ; Nor you.
  299.         move.l    (a3)+,a0
  300.         move.l    a0,BLTDPT(a5)        ; Tell it screen Addr.
  301.         move.w    #0,BLTDMOD(a5)        ; Don't skip bits
  302.         move.w    #USED,$40(a5)        ; Just output to D
  303.         move.w    #0,BLTCON1(a5)        ; and no wise moves.
  304.         move.w    #$4014,BLTSIZE(a5)    ; 256 * 40 (bytes) scrn
  305.         dbra    d7,UO_ClearArea
  306.  
  307.         rts
  308.  
  309. UO_Addr_Offset    dc.l    0        ; Address offset from x * y
  310.  
  311. ;==========>> Data Area <<==================================================
  312.  
  313. Object_1    ;=============================================================
  314.         dc.w    32,53        ;  x / y   - position NOW
  315.         dc.w    -3,1        ; dx / dy  - velocity
  316.  
  317. Object_2    ;=============================================================
  318.         dc.w    132,62        ;  x / y   - position NOW
  319.         dc.w    2,-1        ; dx / dy  - velocity
  320.  
  321. Object_3    ;=============================================================
  322.         dc.w    232,42        ;  x / y   - position NOW
  323.         dc.w    3,1        ; dx / dy  - velocity
  324.  
  325. Object_4    ;=============================================================
  326.         dc.w    2,20        ;  x / y   - position NOW
  327.         dc.w    -5,1        ; dx / dy  - velocity
  328.  
  329. Object_5    ;=============================================================
  330.         dc.w    60,80        ;  x / y   - position NOW
  331.         dc.w    1,-1        ; dx / dy  - velocity
  332.  
  333. Object_6    ;=============================================================
  334.         dc.w    50,75        ;  x / y   - position NOW
  335.         dc.w    6,1        ; dx / dy  - velocity
  336.  
  337. Object_7    ;=============================================================
  338.         dc.w    90,24        ;  x / y   - position NOW
  339.         dc.w    3,-1        ; dx / dy  - velocity
  340.  
  341. Object_8    ;=============================================================
  342.         dc.w    20,93        ;  x / y   - position NOW
  343.         dc.w    -3,1        ; dx / dy  - velocity
  344.  
  345. Object_9    ;=============================================================
  346.         dc.w    100,10        ;  x / y   - position NOW
  347.         dc.w    -8,1        ; dx / dy  - velocity
  348.  
  349. Object_A    ;=============================================================
  350.         dc.w    60,130        ;  x / y   - position NOW
  351.         dc.w    3,-2        ; dx / dy  - velocity
  352.  
  353. _GfxBase    dc.l    0
  354. gfxname        dc.b    'graphics.library',0
  355.         even
  356.  
  357. Copper_1    dc.l    0
  358.  
  359. OldPlanes    dc.l    0,0,0,0
  360. NewPlanes    dc.l    0,0,0,0
  361. TmpPlanes    dc.l    0,0,0,0
  362.  
  363.         SECTION    MY_COPPER,CODE_C
  364.  
  365. Copper        dc.l    $01fc0000,$01060000
  366.         dc.l    $01200000,$01220478
  367.         dc.l    $01240000,$01260478,$01280000,$012A0478
  368.         dc.l    $012C0000,$012E0478,$01300000,$01320478
  369.         dc.l    $01340000,$01360478,$01380000,$013A0478
  370.         dc.l    $013C0000,$013E0478
  371. Cop_Colors    dc.l    $01820A00,$01840500,$01860600        ; Colors   1,2,3
  372.          dc.l    $01880611,$018A0811,$018C0300,$018E0FC8    ; Colors 4,5,6,7
  373.          dc.l    $01900303,$01920a00,$01940500,$01960600    ; Colors 8,9,a,b
  374.         dc.l    $01980611,$019a0811,$019c0300,$019e0fc8    ; Colors c,d,e,f
  375.  
  376.  
  377. ;Bar one
  378.         dc.l $01800111,$2901fffe
  379.         dc.l $01800a0a,$2a01fffe
  380.         dc.l $0180011f,$2b01fffe,$01800000
  381.  
  382.         dc.l $008E057C,$01000200,$01040024
  383.         dc.l $009040BC,$00920030,$009400C8,$010200BB
  384.         dc.l $01080000,$010A0000
  385.  
  386. Planes        dc.l $00E00006,$00E20000
  387.         dc.l $00E40006,$00E62800
  388.         dc.l $00E80006,$00Ea5000
  389.         dc.l $00EC0000,$00EE0000
  390.  
  391.  
  392.         dc.l $2c01fffe,$01003200    ; 3 Bit Planes
  393.         dc.l $6001fffe,$01004200    ; 4 Bit Planes (Damage Piccy)
  394.         dc.l $c001fffe,$01003200    ; 3 Bit Planes
  395.  
  396.         dc.l $FFDFFFFE
  397. ;Bar Two
  398.         dc.l $01800000,$1401fffe
  399.         dc.l $0180011f,$1501fffe
  400.         dc.l $01800a0a,$1601fffe,$01800111
  401.  
  402.         dc.l $2B01FFFE,$01000200    ; No Bit Planes Thanx 
  403.         dc.l $FFFFFFFE            ; End Of CopperList.
  404.  
  405.  
  406.  
  407. Ball_Bob    ;=============================================================
  408.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$003F,$8000
  409.  DC.W $00C1,$E000,$017C,$E000,$02FE,$3000,$05FF,$5400
  410.  DC.W $07FF,$1800,$0BFE,$AC00,$03FF,$1A00,$0BFE,$AC00
  411.  DC.W $11FF,$1A00,$197D,$2C00,$0EAA,$1A00,$1454,$DC00
  412.  DC.W $0E81,$3800,$0154,$F400,$02EB,$F000,$015F,$D000
  413.  DC.W $00B5,$A000,$002A,$8000,$0000,$0000,$0000,$0000
  414.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  415.  DC.W $0000,$0000,$0000,$0000,$0000,$0000
  416.  
  417.  DC.W $000F,$E000,$007F,$FC00,$01FF,$FF00,$03FF,$FF80
  418.  DC.W $07C1,$FFC0,$0F00,$FFE0,$1E00,$3FF0,$3C40,$5FF8
  419.  DC.W $3CE0,$1FF8,$7840,$2FFC,$7800,$1FFC,$7800,$2FFC
  420.  DC.W $F800,$1FFE,$F800,$2FFE,$FE00,$1FFE,$FC00,$DFFE
  421.  DC.W $FE81,$3FFE,$FF54,$FFFE,$FFEB,$FFFE,$7FFF,$FFFC
  422.  DC.W $7FFF,$FFFC,$7FFF,$FFFC,$3FFF,$FFF8,$3FFF,$FFF8
  423.  DC.W $1FFF,$FFF0,$0FFF,$FFE0,$07FF,$FFC0,$03FF,$FF80
  424.  DC.W $01FF,$FF00,$007F,$FC00,$000F,$E000
  425.  
  426.  DC.W $000F,$E000,$007F,$FC00,$01E0,$7F00,$0380,$0F80
  427.  DC.W $073E,$0AC0,$0CFF,$0560,$198F,$C2F0,$3347,$A0B8
  428.  DC.W $32EB,$E158,$6647,$D0AC,$660B,$E05C,$4757,$D0AC
  429.  DC.W $C7AF,$E05E,$A7FF,$D02E,$C1FF,$E05E,$A3FF,$202E
  430.  DC.W $D17E,$C05E,$E0AB,$002E,$D014,$005E,$6800,$00AC
  431.  DC.W $7000,$02DC,$7400,$057C,$2800,$0AF8,$3680,$55F8
  432.  DC.W $1D54,$AAF0,$0EAB,$55E0,$0754,$ABC0,$03EB,$FF80
  433.  DC.W $01FE,$FF00,$007F,$FC00,$000F,$E000
  434.  
  435. Ball_Bob.MASK
  436.  DC.W $000F,$E000,$007F,$FC00,$01FF,$FF00,$03FF,$FF80
  437.  DC.W $07FF,$FFC0,$0FFF,$FFE0,$1FFF,$FFF0,$3FFF,$FFF8
  438.  DC.W $3FFF,$FFF8,$7FFF,$FFFC,$7FFF,$FFFC,$7FFF,$FFFC
  439.  DC.W $FFFF,$FFFE,$FFFF,$FFFE,$FFFF,$FFFE,$FFFF,$FFFE
  440.  DC.W $FFFF,$FFFE,$FFFF,$FFFE,$FFFF,$FFFE,$7FFF,$FFFC
  441.  DC.W $7FFF,$FFFC,$7FFF,$FFFC,$3FFF,$FFF8,$3FFF,$FFF8
  442.  DC.W $1FFF,$FFF0,$0FFF,$FFE0,$07FF,$FFC0,$03FF,$FF80
  443.  DC.W $01FF,$FF00,$007F,$FC00,$000F,$E000
  444.  
  445.  
  446.  
  447. Damage_Bin        ; 320 * 100 1 Bitplane
  448.  dc.b 0
  449.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  450.  DC.W $0000,$0000,$0001,$0000,$0000,$0000,$0000,$0000
  451.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  452.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  453.  DC.W $0000,$0000,$0000,$0400,$0000,$0000,$0000,$0000
  454.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  455.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0400
  456.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  457.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$3000,$0000
  458.  DC.W $0000,$0000,$0000,$0100,$0000,$0000,$0000,$0000
  459.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  460.  DC.W $2000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  461.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  462.  DC.W $0000,$0000,$0000,$0000,$0000,$4000,$0000,$0000
  463.  DC.W $0000,$0000,$0000,$0180,$0000,$0000,$0000,$0000
  464.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  465.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  466.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  467.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  468.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  469.  DC.W $0000,$0040,$0000,$0000,$0000,$0007,$0000,$0000
  470.  DC.W $0000,$0000,$0000,$0000,$0000,$4000,$0000,$0000
  471.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  472.  DC.W $0000,$0002,$0000,$0000,$0000,$0000,$0000,$0000
  473.  DC.W $0401,$6000,$0000,$0400,$0000,$0000,$0000,$0000
  474.  DC.W $0000,$0050,$0000,$0000,$0000,$0000,$2000,$0000
  475.  DC.W $4000,$0000,$0000,$0000,$080A,$3000,$1C00,$0C00
  476.  DC.W $0000,$0000,$0000,$0000,$0000,$0020,$0000,$0000
  477.  DC.W $0008,$0000,$6000,$0000,$2FEC,$0000,$0000,$0000
  478.  DC.W $181F,$DC00,$3E07,$FB40,$0000,$0000,$0000,$0000
  479.  DC.W $0000,$0020,$0000,$0000,$021C,$0001,$FC00,$0000
  480.  DC.W $8FFE,$0000,$F001,$8000,$101C,$FF00,$3FFF,$EEE0
  481.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  482.  DC.W $0438,$8003,$7EF0,$4000,$DFF7,$8001,$FC03,$0000
  483.  DC.W $003F,$FF88,$3FFF,$F8D6,$0000,$0000,$0000,$0000
  484.  DC.W $0000,$0000,$0600,$0000,$027D,$4001,$FFF8,$0000
  485.  DC.W $3FFB,$0011,$FF80,$0000,$007F,$FFC0,$DFFF,$EA5F
  486.  DC.W $C000,$0000,$0000,$0000,$0000,$0C00,$7600,$0000
  487.  DC.W $0019,$4000,$FEF8,$0000,$7FFF,$0001,$FFC0,$0000
  488.  DC.W $00FF,$FFC0,$5FFF,$FEFF,$B800,$0000,$0000,$0000
  489.  DC.W $0000,$1C0E,$3600,$0000,$0007,$8800,$FC7D,$0000
  490.  DC.W $7FEB,$0083,$FFC0,$0000,$40FF,$FFD0,$1FFF,$FFDF
  491.  DC.W $FC00,$0000,$0000,$0000,$0000,$1B4E,$7C00,$0000
  492.  DC.W $000F,$DC04,$7E7E,$0000,$FFF7,$0003,$FFC0,$0000
  493.  DC.W $08FE,$DFE0,$3FFF,$EC5F,$F800,$0000,$0000,$0000
  494.  DC.W $0000,$7346,$0800,$0000,$02BF,$FC00,$FFFE,$0001
  495.  DC.W $FFFF,$0007,$FFC0,$0000,$046F,$BFF8,$3FFF,$E9BF
  496.  DC.W $FC00,$0000,$0000,$0000,$0006,$B786,$0E00,$0000
  497.  DC.W $033F,$FC00,$FEE4,$0000,$7FFF,$0007,$FFE0,$0000
  498.  DC.W $1385,$BFF8,$3FFF,$F47F,$FE00,$0000,$0000,$0000
  499.  DC.W $0004,$6FD3,$1F80,$0000,$003F,$FC00,$FFFE,$1001
  500.  DC.W $7FFF,$0005,$FFE0,$0000,$0277,$FFF8,$3FFF,$F7FF
  501.  DC.W $FF00,$0000,$0000,$0000,$0007,$7FCB,$FFE0,$0000
  502.  DC.W $001E,$BE00,$FFFB,$8000,$5FFF,$800F,$FFE0,$0000
  503.  DC.W $047F,$FFFC,$3FFF,$EB7F,$FF00,$0000,$0000,$0000
  504.  DC.W $0003,$FFE1,$FFF0,$0008,$003F,$6E00,$FFFF,$8001
  505.  DC.W $4FFD,$001F,$FDF0,$0000,$086D,$FFFC,$3FFE,$1BFF
  506.  DC.W $FF00,$0000,$0000,$0000,$0003,$FBC8,$FFF8,$0004
  507.  DC.W $00FF,$FE00,$7FFF,$8000,$0FFE,$800F,$FB38,$0000
  508.  DC.W $0B4F,$FDBC,$3FFC,$3ABF,$FE00,$0000,$0000,$0000
  509.  DC.W $0003,$FDF1,$FFFC,$0000,$00FF,$FE00,$3FFF,$8001
  510.  DC.W $5DFF,$000F,$FDF0,$0000,$075F,$FBFC,$3FFC,$33FF
  511.  DC.W $F000,$0000,$0000,$0000,$0003,$F9F2,$FFFE,$0000
  512.  DC.W $00FF,$FE00,$7FFF,$8003,$CDDF,$001F,$FFA0,$0200
  513.  DC.W $07AF,$7BFC,$3FFC,$07E0,$0000,$0000,$0000,$0000
  514.  DC.W $0003,$F9E8,$7FFF,$0000,$01FF,$FE00,$FFFF,$C005
  515.  DC.W $D1FF,$001F,$FFE0,$1200,$0EAE,$7FFC,$3FFC,$0E20
  516.  DC.W $0200,$0000,$0000,$0000,$0003,$FBF1,$3FFF,$8000
  517.  DC.W $01FF,$FE00,$FFFF,$C001,$28D9,$401F,$EFF8,$5000
  518.  DC.W $0EEC,$FFFC,$3FFC,$1804,$0600,$0000,$0000,$0000
  519.  DC.W $0003,$FFF0,$1FFF,$C000,$01DF,$FF00,$FFFF,$C003
  520.  DC.W $A06F,$803F,$FBE8,$0400,$1B1F,$FFFC,$3FFC,$1012
  521.  DC.W $0000,$0000,$0000,$0000,$0003,$FFF0,$0FFF,$E000
  522.  DC.W $018F,$FF00,$FFFF,$E003,$F9FB,$803F,$FFE8,$0000
  523.  DC.W $0B7F,$7FFC,$3FF8,$0000,$0000,$0000,$0000,$0000
  524.  DC.W $0003,$FFC5,$0FFF,$C000,$05DF,$FF00,$BBFF,$E007
  525.  DC.W $FC87,$811F,$FE42,$0000,$9F47,$DFFC,$3FF0,$0020
  526.  DC.W $0000,$0000,$0000,$0000,$0003,$FFC0,$07FF,$E000
  527.  DC.W $07FF,$FF00,$FFFF,$E007,$FE80,$008D,$47A0,$0000
  528.  DC.W $7F49,$FFFC,$3FF0,$0000,$0000,$0000,$0000,$0000
  529.  DC.W $0003,$FFC0,$07FF,$E200,$0A7F,$FE02,$F7FF,$C007
  530.  DC.W $FF80,$811A,$658B,$4000,$3F00,$FFF8,$3FFA,$0000
  531.  DC.W $0000,$0000,$0000,$0000,$0003,$FFC0,$87FF,$E000
  532.  DC.W $031F,$FC80,$BFFF,$E007,$FFF0,$8065,$2F0B,$0000
  533.  DC.W $7FB7,$7FF8,$3FFE,$0000,$0000,$0000,$0000,$0000
  534.  DC.W $0003,$FFC0,$03FF,$F000,$0F3F,$FE04,$FFFF,$F80F
  535.  DC.W $FFF8,$8071,$BC75,$8000,$FBFF,$FFF0,$3FF8,$0000
  536.  DC.W $0000,$0000,$0000,$0000,$0003,$FFC0,$027F,$F000
  537.  DC.W $0B17,$FF02,$FFFF,$480F,$FFFB,$0054,$36F3,$8000
  538.  DC.W $FFF5,$E964,$77F8,$0000,$0000,$0000,$0000,$0000
  539.  DC.W $0003,$FFCC,$027F,$B000,$3ED1,$FFE0,$FFFA,$084F
  540.  DC.W $FFF8,$0003,$F9FF,$8000,$FF9A,$A182,$3FF8,$0000
  541.  DC.W $0010,$0000,$0000,$0000,$0003,$FFF4,$037D,$1800
  542.  DC.W $0BD2,$FF80,$FFFD,$CCAF,$FFFC,$0007,$FFFF,$8001
  543.  DC.W $FDF8,$1604,$3FB8,$4000,$0000,$0000,$0000,$0000
  544.  DC.W $0003,$FF07,$03FD,$B800,$3FD7,$7F80,$F7FF,$A51F
  545.  DC.W $FFFC,$000F,$FFFF,$8001,$FFF0,$E080,$3F98,$8400
  546.  DC.W $0000,$0000,$0000,$0000,$0003,$FFE7,$01DD,$F800
  547.  DC.W $7FB7,$FF80,$FFFF,$F10F,$FFFD,$000F,$FFFF,$8003
  548.  DC.W $FFF0,$1000,$3FFD,$8000,$0000,$0000,$0000,$0000
  549.  DC.W $0003,$FEE8,$01E7,$F800,$7FD0,$5F80,$F9FF,$443F
  550.  DC.W $FFFF,$000F,$FFFF,$8003,$FFE2,$9000,$7FFF,$4838
  551.  DC.W $0000,$0000,$0000,$0000,$0007,$FEF0,$01FF,$F800
  552.  DC.W $7FFD,$0FC0,$FFFF,$D86F,$FFFF,$200F,$FFDF,$C003
  553.  DC.W $FFE4,$0000,$7FFF,$7C2A,$0000,$0000,$0000,$0000
  554.  DC.W $0003,$FE5C,$01FF,$F800,$7FFE,$4FC0,$FFFF,$927F
  555.  DC.W $FFFF,$001F,$FDEF,$C007,$FFC8,$0007,$7FFF,$5008
  556.  DC.W $0000,$0000,$0000,$0000,$0001,$FFF2,$01FF,$F802
  557.  DC.W $7FEC,$47C0,$FFFD,$1727,$FFFF,$041F,$FDFF,$C007
  558.  DC.W $FFD8,$000F,$FFFF,$C40C,$0000,$0000,$0000,$0000
  559.  DC.W $0011,$FFD0,$01FF,$F830,$FFED,$83C0,$EFFD,$B77F
  560.  DC.W $FFFF,$021F,$FBFF,$C007,$FFC0,$000F,$6FFF,$77AA
  561.  DC.W $0000,$0000,$0000,$0000,$0003,$FFC0,$01FF,$F810
  562.  DC.W $7FED,$F950,$F7DF,$CE3F,$FFFF,$005F,$FA7F,$C02F
  563.  DC.W $FF90,$0017,$FDFF,$B7EB,$F000,$0000,$0000,$0000
  564.  DC.W $0003,$FFC0,$01FF,$F820,$BFF5,$F828,$FBDF,$CFFF
  565.  DC.W $FFFF,$004F,$FFFF,$C069,$FFD0,$0003,$1BFE,$FFFF
  566.  DC.W $F000,$0000,$0000,$0000,$0003,$FFA0,$01FF,$F808
  567.  DC.W $7FC7,$F990,$FFC3,$CFBF,$FFFF,$002F,$FEFF,$C00F
  568.  DC.W $FF4C,$2384,$7FFF,$3FFF,$F000,$0000,$0000,$0000
  569.  DC.W $0003,$FFA0,$01FF,$F803,$FFCF,$FE80,$FFE1,$477F
  570.  DC.W $FFFF,$0187,$FAFF,$E01F,$FF00,$07DE,$FFFF,$F7FF
  571.  DC.W $F000,$0000,$0000,$0000,$0003,$FEA0,$03FF,$F801
  572.  DC.W $FFC7,$FB00,$FF80,$C7FF,$DFFF,$0087,$FCFF,$E01D
  573.  DC.W $FF80,$1DDE,$7FFF,$DFFF,$F000,$0000,$0000,$0000
  574.  DC.W $0003,$FF40,$03FF,$F803,$FFD7,$FF00,$F701,$37FE
  575.  DC.W $FFFF,$8003,$FEFF,$E01B,$FD28,$D88F,$7FFF,$1FFF
  576.  DC.W $F000,$0000,$0000,$0000,$0003,$FFC0,$03FF,$F807
  577.  DC.W $FFBB,$FD00,$1F00,$B7FF,$5FFF,$9859,$F47F,$F01F
  578.  DC.W $FE00,$59D3,$7FF9,$3FFF,$E000,$0000,$0000,$0000
  579.  DC.W $0003,$FFC0,$03FF,$F802,$FF9F,$BF00,$3FE0,$3FFF
  580.  DC.W $EFFD,$085B,$F07F,$181F,$FC00,$0FFF,$7FF9,$2FFF
  581.  DC.W $0000,$0000,$0000,$0000,$0003,$FFC0,$07FF,$F003
  582.  DC.W $FF9B,$FF00,$FDF0,$1DFF,$EF7A,$1061,$F37F,$F01F
  583.  DC.W $FF0B,$BFDF,$77F8,$9F00,$0000,$0000,$0000,$0000
  584.  DC.W $0003,$FFC0,$07FB,$E407,$EF81,$FF00,$39C2,$0FFF
  585.  DC.W $CF7F,$403B,$E07F,$F83F,$FE67,$E3BF,$7FF9,$0000
  586.  DC.W $0000,$0000,$0000,$0000,$0003,$FFA0,$0FFF,$F007
  587.  DC.W $FF03,$F381,$4180,$6FFF,$CFFB,$0033,$FFFF,$F03F
  588.  DC.W $FFD7,$F3DF,$37F8,$0000,$0000,$0000,$0000,$0000
  589.  DC.W $0003,$FF70,$07F7,$F407,$DFFE,$FF80,$6990,$0FFF
  590.  DC.W $CFAE,$007D,$FFFF,$F03F,$FD4F,$FAFF,$07F8,$0000
  591.  DC.W $0000,$0000,$0000,$0000,$0003,$FFE0,$03FB,$2007
  592.  DC.W $CFF9,$FF81,$0AE0,$0FFF,$8FDD,$007F,$FFFF,$F03F
  593.  DC.W $FC9F,$A7DF,$1BF8,$0000,$0000,$0000,$0000,$0000
  594.  DC.W $0003,$FDC0,$05FB,$800F,$EFBF,$FF83,$8340,$3FFF
  595.  DC.W $8F89,$00F9,$7FFF,$F01F,$FC7F,$F3FE,$E7F8,$0000
  596.  DC.W $0000,$0000,$0000,$0000,$0003,$FF60,$09D7,$E00F
  597.  DC.W $FFFF,$FF81,$A060,$1FFF,$0FC7,$00F3,$70FF,$F11F
  598.  DC.W $FC03,$FBFF,$67F8,$0000,$0000,$0000,$0000,$0000
  599.  DC.W $0003,$FF18,$1DEF,$E00F,$FFFF,$FF81,$B840,$37FF
  600.  DC.W $0F43,$00FF,$7EFF,$F09F,$FC01,$F6FA,$4FF8,$0000
  601.  DC.W $0000,$0000,$0000,$0000,$0003,$FEC8,$0AFF,$E00F
  602.  DC.W $FFFB,$FF81,$D000,$0FFE,$0D11,$00EB,$7C7F,$FC4F
  603.  DC.W $FC04,$35FC,$27F8,$0000,$0000,$0000,$0000,$0000
  604.  DC.W $0006,$FF80,$13FF,$C01F,$FFF7,$FFC1,$F600,$19FA
  605.  DC.W $0EFD,$01FD,$FEFF,$FC3F,$FC80,$357E,$1BF8,$0000
  606.  DC.W $0000,$0000,$0000,$0000,$0008,$F040,$39FF,$801F
  607.  DC.W $FEFF,$FFC1,$F700,$46FC,$0405,$01FD,$F43F,$FC3F
  608.  DC.W $F000,$7CFC,$2FF8,$0000,$0000,$0000,$0000,$0000
  609.  DC.W $000F,$CBC0,$38FF,$0017,$FDE1,$FFC1,$FB80,$07D2
  610.  DC.W $1D3F,$01FF,$983F,$FC3F,$E000,$7EF8,$1FF8,$0000
  611.  DC.W $0000,$0000,$0000,$0000,$000D,$5040,$7E7F,$0403
  612.  DC.W $FC81,$FFC1,$FFC0,$0FFC,$041F,$05FF,$3C3F,$FC7F
  613.  DC.W $F000,$78F8,$3FF8,$2000,$0000,$0000,$0000,$0000
  614.  DC.W $0010,$1500,$79BE,$052F,$FDC1,$FFC1,$FFA0,$03F8
  615.  DC.W $083F,$07FC,$081F,$F83F,$F800,$FFD0,$3FFC,$2000
  616.  DC.W $0000,$0000,$0000,$0000,$0020,$0580,$FEFE,$012F
  617.  DC.W $F880,$FFC1,$FFE0,$03F0,$107F,$07FE,$201F,$F87F
  618.  DC.W $F800,$FED0,$3DFC,$4200,$0000,$0000,$0000,$0000
  619.  DC.W $0020,$1B80,$7CFC,$04AB,$F800,$FFC1,$FFE0,$0000
  620.  DC.W $24FF,$03FE,$801F,$FDEF,$F801,$FE40,$37FC,$8200
  621.  DC.W $0020,$0000,$0000,$0000,$0000,$7F81,$FEFC,$04C7
  622.  DC.W $F980,$FFE1,$FF80,$0000,$53FF,$03FF,$905F,$FDF7
  623.  DC.W $F801,$FF20,$3FF8,$1400,$0000,$0000,$0000,$0000
  624.  DC.W $0061,$FF80,$7AD0,$050A,$7801,$7FE1,$FF90,$0000
  625.  DC.W $0FFF,$07FF,$88FF,$FD27,$F003,$FF20,$39D8,$0800
  626.  DC.W $0000,$0000,$0000,$0000,$0029,$FF80,$7FC8,$0001
  627.  DC.W $F802,$7FE1,$FE80,$0000,$2DFF,$27FF,$805F,$F80F
  628.  DC.W $F803,$FFB0,$3FD2,$81FF,$8000,$0000,$0000,$0000
  629.  DC.W $0007,$FF82,$7AD8,$0001,$F800,$FFE1,$FED0,$0000
  630.  DC.W $0FFF,$47FF,$800F,$FC07,$FC07,$FF90,$3FA6,$0FFF
  631.  DC.W $F800,$0000,$0000,$0000,$0317,$FF83,$FBD8,$000E
  632.  DC.W $7900,$7FE1,$FEC0,$0200,$27FF,$0FFF,$000F,$FE0F
  633.  DC.W $FC0F,$FF90,$3F3D,$1FFF,$FE00,$0000,$0000,$0000
  634.  DC.W $0387,$FF8E,$EF00,$2003,$1000,$7FF1,$FFC0,$0400
  635.  DC.W $0FFF,$0FFF,$000F,$FE07,$FE3F,$FFD0,$3F68,$7FFF
  636.  DC.W $FF00,$0000,$0000,$0000,$004F,$FF8F,$6F80,$000E
  637.  DC.W $4000,$7FF1,$FFE0,$0000,$0FFF,$0FFF,$000F,$FE07
  638.  DC.W $FFFF,$FFE0,$1E99,$FFFF,$FF00,$0000,$0000,$0000
  639.  DC.W $0007,$FF9F,$DF00,$000E,$4800,$7FF1,$FFE0,$0000
  640.  DC.W $0FFF,$0FFF,$000F,$FC83,$7FFF,$FFC4,$1D92,$FFFF
  641.  DC.W $FF00,$0000,$0000,$0000,$000D,$7FFF,$5F00,$000F
  642.  DC.W $C000,$7FF1,$FF80,$0000,$9FFF,$0FFF,$8006,$FE00
  643.  DC.W $3FFF,$FF86,$0209,$FFFF,$FE00,$0000,$0000,$0000
  644.  DC.W $0007,$FFFF,$7600,$000F,$C008,$3FF1,$FFA0,$0000
  645.  DC.W $1FFF,$0FFE,$0007,$FC01,$3FFF,$FF20,$0503,$7BFF
  646.  DC.W $FC00,$0000,$0000,$0000,$0007,$FFFF,$6CA0,$000B
  647.  DC.W $EE00,$3FF9,$FF90,$0000,$0FFF,$1FFE,$0007,$FE81
  648.  DC.W $4FFF,$FE30,$0491,$FFFF,$B000,$0000,$0000,$0000
  649.  DC.W $0007,$FFFF,$B000,$001F,$F340,$3FF9,$FFC0,$0000
  650.  DC.W $0FFF,$9FFE,$0087,$FF80,$5FFF,$7800,$05E3,$FFFF
  651.  DC.W $0000,$0000,$0000,$0000,$0007,$FFFF,$8000,$001F
  652.  DC.W $C040,$3FF8,$FFC0,$0000,$0FF9,$9FFC,$0005,$FF00
  653.  DC.W $A0FF,$1000,$020F,$FFF8,$0000,$0000,$0000,$0000
  654.  DC.W $0207,$FFFF,$8000,$001F,$C8A0,$3FF8,$0F80,$0000
  655.  DC.W $0FFE,$9FFE,$0001,$FE01,$4000,$4000,$03DF,$C400
  656.  DC.W $0000,$0000,$0000,$0000,$0707,$FFFF,$C000,$001F
  657.  DC.W $D800,$1FF0,$0000,$0000,$0FFE,$3FFF,$0000,$0000
  658.  DC.W $0001,$5000,$03A6,$0000,$0000,$0000,$0000,$0000
  659.  DC.W $0007,$FFFF,$E080,$003F,$9408,$0000,$0000,$0000
  660.  DC.W $0FFC,$3FF6,$0000,$0000,$0000,$1800,$0090,$0000
  661.  DC.W $0000,$0000,$0000,$0000,$0007,$FFFF,$C010,$003F
  662.  DC.W $C000,$0000,$0000,$0000,$07FF,$3FF2,$0000,$0000
  663.  DC.W $0400,$1020,$0180,$0000,$0000,$0000,$0000,$0000
  664.  DC.W $0007,$FFFF,$0020,$003F,$FD00,$0000,$0000,$0000
  665.  DC.W $003E,$1FF4,$0000,$0000,$0000,$0070,$0000,$0000
  666.  DC.W $0000,$0000,$0000,$0000,$0007,$FFFC,$0000,$001F
  667.  DC.W $F200,$0000,$0000,$0000,$0000,$0FF8,$0000,$0000
  668.  DC.W $0000,$0020,$2000,$0000,$0000,$0000,$0000,$0000
  669.  DC.W $0003,$FF80,$0200,$000F,$F000,$0000,$0000,$0000
  670.  DC.W $0000,$03F0,$0000,$0000,$0000,$0000,$0080,$0000
  671.  DC.W $0000,$0000,$0000,$0000,$0400,$FFD0,$0000,$0003
  672.  DC.W $F000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  673.  DC.W $0000,$0000,$0800,$0010,$8000,$0000,$0000,$0000
  674.  DC.W $0000,$0020,$0000,$0000,$3008,$0000,$0000,$0000
  675.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0024
  676.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  677.  DC.W $0004,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  678.  DC.W $0000,$0000,$0000,$0010,$0000,$0000,$0000,$0000
  679.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  680.  DC.W $0800,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  681.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0020
  682.  DC.W $0000,$0000,$0000,$0000,$1400,$0000,$0000,$0002
  683.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  684.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0060,$0000
  685.  DC.W $0000,$0000,$0000,$0004,$0000,$0000,$0000,$0000
  686.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0040
  687.  DC.W $0008,$0000,$0000,$0000,$0400,$0000,$0000,$0002
  688.  DC.W $0000,$0000,$0000,$0000,$0100,$0000,$0000,$0000
  689.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  690.  DC.W $0000,$0020,$0000,$0000,$0000,$0000,$0000,$0000
  691.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  692.  DC.W $0000,$0000,$0000,$0000,$0000,$0058,$0000,$8000
  693.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  694.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  695.  DC.W $0000,$0000,$0000,$6000,$0000,$0000,$0000,$0000
  696.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  697.  DC.W $0000,$0000,$0000,$0000,$0000,$0000,$0000,$2000
  698.  DC.W $0000,$0000,$6000,$0000,$0000,$0000,$0000,$0000
  699.  
  700. ;----------)) Blitter Object Definition Area ((----------------------------
  701.  
  702.         rsreset
  703. Obj_xpos    rs.w    1    ; Possition it is in now. 
  704. Obj_ypos    rs.w    1    ; Calculated with ....
  705. Obj_dx        rs.w    1    ;  x = x + dx
  706. Obj_dy        rs.w    1    ;  y = y + dy 
  707.  
  708.         end
  709.